home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
egyptw.dir
/
01708_Script_Town
< prev
next >
Wrap
Text File
|
1995-09-13
|
4KB
|
135 lines
global gQuest, gBeenClicked
on ETownRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
if rollover(12) or rollover(7) then
repeat while rollover(12) or rollover(7)
EgyptCursor
puppetsprite 28, true
set the locH of sprite 28 to 551
set the locV of sprite 28 to 196
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
TownAnimate
end repeat
end if
end if
end repeat
set the locH of sprite 28 to 951
updatestage
puppetsprite 28, false
else
ArrowCursor
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on TownAnimate
ArrowCursor
set gAnimationcast1 = 508
set gAnimationcast2 = 521
set gAnimationcast3 = 511
set gAnimationcast4 = 514
set gAnimationcast5 = 517
set the locH of sprite 28 to 851
set count = 0
puppetsound "SE220110.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .3
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 2 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 2
set the castnum of sprite 8 = gAnimationcast3 + 1
set the castnum of sprite 9 = gAnimationcast4 + 1
set the castnum of sprite 10 = gAnimationcast5 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
set the castnum of sprite 8 = gAnimationcast3 + 2
set the castnum of sprite 9 = gAnimationcast4 + 2
set the castnum of sprite 10 = gAnimationcast5 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
set the castnum of sprite 9 = gAnimationcast4 + 1
set the castnum of sprite 10 = gAnimationcast5 + 1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
set the castnum of sprite 8 = gAnimationcast3 + 1
set the castnum of sprite 9 = gAnimationcast4
set the castnum of sprite 10 = gAnimationcast5
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set the castnum of sprite 2 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
set the castnum of sprite 8 = gAnimationcast3
updatestage
if (the mousedown) then
exit repeat
end if
wait .3
set count = count + 1
end repeat
set the castnum of sprite 2 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast3
set the castnum of sprite 9 = gAnimationcast4
set the castnum of sprite 10 = gAnimationcast5
set the castnum of sprite 7 = gAnimationcast2
updatestage
sound fadeout 1, 2*60
set gBeenClicked = 0
end